# devtools::install_github("derekmichaelwright/agData")
library(agData)

# Prep data
myCaption <- "www.dblogr.com/ or derekmichaelwright.github.io/dblogr/ | Data: STATCAN"
myColors1 <- c("black", "grey50", "slategray3")
myColors2 <- c("darkgreen", "steelblue", "darkred")
# 
dd <- read.csv("2510001501_databaseLoadingData.csv") %>%
  select(Date=REF_DATE, Area=GEO, Class=Class.of.electricity.producer,
         Type=Type.of.electricity.generation, Unit=UOM, Value=VALUE) %>%
  mutate(#Area = factor(Area, levels = agData_STATCAN_Region_Table$Area),
         Date = as.Date(paste0(Date,"-01"), format = "%Y-%m-%d"),
         Year = as.numeric(substr(Date, 1, 4)))

# Create plotting function
gg_Electricity <- function(myArea = "Canada") {
  # Prep data
  xx <- dd %>% filter(Area == myArea, Type != "Total all types of electricity generation",
                      Class == "Total all classes of electricity producer")
  # Plot
  ggplot(xx, aes(x = Date, y = Value / 1000000, color = Type)) +
    geom_line(size = 1, alpha = 0.7) +
    #scale_color_manual(name = NULL, values = myColors1, breaks = myItems) +
    scale_x_date(date_breaks = "year", date_labels = "%Y") +
    theme_agData(legend.position = "bottom",
                 axis.text.x = element_text(angle = 45, hjust = 1)) +
    labs(title = paste(myArea, "- Electricity Production"),
         y = "Million Megawatt Hours", x = NULL, caption = myCaption)
}